home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 35 / Amiga Format AFCD35 (Issue 119, Jan 1999).iso / -screenplay- / hd_installers / populous / install < prev    next >
Text File  |  1998-11-09  |  14KB  |  609 lines

  1. ;------------------------------------------------------------
  2. ; Deeply modified installscript for Populous with patcher, by Harry
  3. ; Adapted from a script by Bert Jahn
  4. ;------------------------------------------------------------
  5. ;****************************
  6.  
  7. (set #readme-file "Readme")        ;name of readme file
  8. (set #CI_drive "Populous:")        ;default source drive
  9. (set #cleanup "")            ;files to delete after install
  10.  
  11. ;****************************
  12.  
  13. (procedure P_decrfiles
  14.   (run ("5064decr p:ad.pic"))
  15.   (run ("5064decr p:mo.pic"))
  16.   (run ("5064decr p:nd0"))
  17.   (run ("5064decr p:nd1"))
  18.   (run ("5064decr p:nd2"))
  19.   (run ("5064decr p:nd3"))
  20.   (run ("5064decr p:nt.dat"))
  21.   (run ("5064decr p:ords"))
  22.   (run ("5064decr p:rd.pic"))
  23.   (run ("5064decr p:rites0.dat"))
  24.   (run ("5064decr p:r_320.dat"))
  25.   (run ("5064decr p:uths.pic"))
  26.   (run ("5064decr p:z.pic"))
  27. )
  28.  
  29. ;****************************
  30.  
  31. (procedure P_installdatadisk
  32.   (
  33.     (message "Please insert your Populous Data disk in any drive and select it.")
  34.     (set #CI_drive 
  35.       (askdir
  36.         (prompt ("What is your Populous data disk?"))
  37.         (help @askdir-help)
  38.         (default @default-dest)
  39.         (disk)
  40.       )
  41.     )
  42.     (if
  43.       (= (exists ("%sland4" #CI_drive)) 1)
  44.       (
  45.         (copyfiles
  46.           (help @copyfiles-help)
  47.           (source ("%slevel.dat" #CI_drive))
  48.           (newname ("vel.dat"))
  49.           (dest #dest)
  50.         )
  51.         (copyfiles
  52.           (help @copyfiles-help)
  53.           (source ("%sland4" #CI_drive))
  54.           (newname ("nd4"))
  55.           (dest #dest)
  56.         )
  57.         (if
  58.           (= (exists ("%sland5" #CI_drive)) 1)
  59.           (
  60.             (copyfiles
  61.               (help @copyfiles-help)
  62.               (source ("%sland5" #CI_drive))
  63.               (newname ("nd5"))
  64.               (dest #dest)
  65.             )
  66.           )
  67.         )
  68.         (if
  69.           (= (exists ("%sland6" #CI_drive)) 1)
  70.           (
  71.             (copyfiles
  72.               (help @copyfiles-help)
  73.               (source ("%sland6" #CI_drive))
  74.               (newname ("nd6"))
  75.               (dest #dest)
  76.             )
  77.           )
  78.         )
  79.         (if
  80.           (= (exists ("%sland7" #CI_drive)) 1)
  81.           (
  82.             (copyfiles
  83.               (help @copyfiles-help)
  84.               (source ("%sland7" #CI_drive))
  85.               (newname ("nd7"))
  86.               (dest #dest)
  87.             )
  88.           )
  89.         )
  90.         (if
  91.           (= (exists ("%sland8" #CI_drive)) 1)
  92.           (
  93.             (copyfiles
  94.               (help @copyfiles-help)
  95.               (source ("%sland8" #CI_drive))
  96.               (newname ("nd8"))
  97.               (dest #dest)
  98.             )
  99.           )
  100.         )
  101.         (if
  102.           (= (exists ("%sland9" #CI_drive)) 1)
  103.           (
  104.             (copyfiles
  105.               (help @copyfiles-help)
  106.               (source ("%sland9" #CI_drive))
  107.               (newname ("nd9"))
  108.               (dest #dest)
  109.             )
  110.           )
  111.         )
  112.         (if
  113.           (= (exists ("%ssprites4.dat" #CI_drive)) 1)
  114.           (
  115.             (copyfiles
  116.               (help @copyfiles-help)
  117.               (source ("%ssprites4.dat" #CI_drive))
  118.               (newname ("rites4.dat"))
  119.               (dest #dest)
  120.             )
  121.           )
  122.         )
  123.         (if
  124.           (= (exists ("%ssprites5.dat" #CI_drive)) 1)
  125.           (
  126.             (copyfiles
  127.               (help @copyfiles-help)
  128.               (source ("%ssprites5.dat" #CI_drive))
  129.               (newname ("rites5.dat"))
  130.               (dest #dest)
  131.             )
  132.           )
  133.         )
  134.         (if
  135.           (= (exists ("%ssprites6.dat" #CI_drive)) 1)
  136.           (
  137.             (copyfiles
  138.               (help @copyfiles-help)
  139.               (source ("%ssprites6.dat" #CI_drive))
  140.               (newname ("rites6.dat"))
  141.               (dest #dest)
  142.             )
  143.           )
  144.         )
  145.         (if
  146.           (= (exists ("%ssprites7.dat" #CI_drive)) 1)
  147.           (
  148.             (copyfiles
  149.               (help @copyfiles-help)
  150.               (source ("%ssprites7.dat" #CI_drive))
  151.               (newname ("rites7.dat"))
  152.               (dest #dest)
  153.             )
  154.           )
  155.         )
  156.         (if
  157.           (= (exists ("%ssprites8.dat" #CI_drive)) 1)
  158.           (
  159.             (copyfiles
  160.               (help @copyfiles-help)
  161.               (source ("%ssprites8.dat" #CI_drive))
  162.               (newname ("rites8.dat"))
  163.               (dest #dest)
  164.             )
  165.           )
  166.         )
  167.         (if
  168.           (= (exists ("%ssprites9.dat" #CI_drive)) 1)
  169.           (
  170.             (copyfiles
  171.               (help @copyfiles-help)
  172.               (source ("%ssprites9.dat" #CI_drive))
  173.               (newname ("rites9.dat"))
  174.               (dest #dest)
  175.             )
  176.           )
  177.         )
  178.       )
  179.       (abort "That was not the Populous Data disk.")
  180.     )
  181.   )
  182. )
  183. ;****************************
  184. (set #paramver "27")
  185. (set #instmode
  186.   (askchoice
  187.     (prompt "Please select installation-mode")
  188.     (default 0)
  189.     (choices "Install your original (or backup) on harddisk" "Patch a backup of your original" "Install an already patched backup to harddisk")
  190.     (help @askchoice-help "\n\n Installing your original on harddisk will copy your disk to hd, then patch it.\nPatching a backup of your original requires a backup (who had ever thought this?).\nWith install an already patched backup to hd you may install a former with that script patched backup to hd.")
  191.   )
  192. )
  193. ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  194. (if
  195.   (= #instmode 1)
  196.   (
  197.     (message "Please insert now a BACKUP copy of your original in any drive.")
  198.     (set @default-dest "Backup-Disk")
  199.     (if
  200.       (= (exists "populous:1") 1)
  201.       (set #paramver "27cr")
  202.     )
  203.     (if
  204.       (= #paramver "27cr")
  205.       (rename "populous:1" "populous:populous")
  206.     )
  207.     (run ("patcher -ppopulous.param"))
  208.     (if
  209.       (= #paramver "27cr")
  210.       (rename "populous:populous" "populous:1")
  211.     )
  212.   )
  213. )
  214. ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  215. (if
  216.   (= #instmode 0)
  217.   (
  218.     (set #toinstall
  219.       (askchoice
  220.         (prompt "Select installation procedure")
  221.         (default 0)
  222.         (choices "Original Populous" "Datadisk (requires also original Populous)")
  223.     (help @askchoice-help)
  224.       )
  225.     )
  226.     (if
  227.       (= #toinstall 0)
  228.       (
  229.         (set #toinstall "game")
  230.       )
  231.     )
  232.     (if
  233.       (= #toinstall 1)
  234.       (
  235.         (set #toinstall "data")
  236.         (set @app-name "Populousdata")
  237.       )
  238.     )
  239.     (set @default-dest
  240.       (askdir
  241.         (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  242.         (help @askdir-help)
  243.         (default @default-dest)
  244.         (disk)
  245.       )
  246.     )
  247.  
  248.     (set #dest (tackon @default-dest @app-name))
  249.  
  250. ;if anything similar exist delete it
  251.     (if
  252.       (exists #dest)
  253.       (if
  254.     (= (askbool
  255.       (prompt "Destinationdrawer already exists, delete it?")
  256.       (help @askbool-help)
  257.         ) 1)
  258.         (run ("Delete \"%s\" \"%s.info\" all" #dest #dest))
  259.       )
  260.     )
  261.  
  262.     (makedir #dest
  263.       (help @makedir-help)
  264.       (infos)
  265.     )
  266.  
  267. ;----------------------------
  268.  
  269.     (working "Please insert now your writeprotected original or backup.")
  270.  
  271.     (if
  272.       (= (exists "populous:1") 1)
  273.       (set #paramver "27cr")
  274.     )
  275.     (copyfiles
  276.       (help @copyfiles-help)
  277.       (source ("%s" #CI_drive))
  278.       (dest #dest)
  279.       (pattern "~(c|devs|l|libs|s|2|pipemania|#?.info)")
  280.     )
  281.  
  282. ;----------------------------
  283.  
  284.     (message "Please remove your original disk from the drive.")
  285.     (if
  286.       (= (exists #CI_drive (noreq)) 2)
  287.       (abort "Quittet due not removed disk.")
  288.     )
  289.     (run ("c:assign \"%s\" \"%s\"" #CI_drive #dest))
  290.     (if
  291.       (= #paramver "27cr")
  292.       (rename "populous:1" "populous:populous")
  293.     )
  294.  
  295.     (run ("patcher -ppopulous.param"))
  296.  
  297.     (run ("c:assign \"%s\" remove" #CI_drive))
  298.  
  299.     (run ("c:assign P: \"%s\"" #dest))
  300.  
  301.     (rename "p:populous" "p:populous1")
  302.     (rename "p:demo.pic" "p:mo.pic")
  303.     (rename "p:font.dat" "p:nt.dat")
  304.     (rename "p:gmusic1" "p:usic1")
  305.     (rename "p:gwords" "p:ords")
  306.     (rename "p:land0" "p:nd0")
  307.     (rename "p:land1" "p:nd1")
  308.     (rename "p:land2" "p:nd2")
  309.     (rename "p:land3" "p:nd3")
  310.     (rename "p:level.dat" "p:vel.dat")
  311.     (rename "p:load.pic" "p:ad.pic")
  312.     (rename "p:lord.pic" "p:rd.pic")
  313.     (rename "p:mouths.pic" "p:uths.pic")
  314.     (rename "p:popsam" "p:psam")
  315.     (rename "p:qaz.pic" "p:z.pic")
  316.     (rename "p:sprites0.dat" "p:rites0.dat")
  317.     (rename "p:spr_320.dat" "p:r_320.dat")
  318.  
  319.     (run ("populoushd"))
  320.     (if
  321.       (= #paramver "27cr")
  322.       (P_decrfiles)
  323.     )
  324.  
  325.     (run ("c:assign P: remove"))
  326.  
  327.     (copyfiles
  328.       (help @copyfiles-help)
  329.       (source ("Populous.inf"))
  330.       (newname ("Populous.info"))
  331.       (dest #dest)
  332.     )
  333.     (if
  334.       (exists #readme-file)
  335.       (
  336.         (copyfiles
  337.           (help @copyfiles-help)
  338.           (source #readme-file)
  339.           (dest #dest)
  340.         )
  341.         (copyfiles
  342.           (help @copyfiles-help)
  343.           (source ("%s.info" #readme-file))
  344.           (dest #dest)
  345.         )
  346.       )
  347.     )
  348.     (copyfiles
  349.       (help @copyfiles-help)
  350.       (source ("Populous_st"))
  351.       (newname ("Populous"))
  352.       (dest #dest)
  353.     )
  354.  
  355.     (if
  356.       (= #toinstall "data")
  357.       (P_installdatadisk)
  358.     )
  359.  
  360.     (run ("Delete %s ALL QUIET FORCE" #cleanup))    ;delete all temporary files
  361.  
  362.     (if
  363.       (exists #readme-file)
  364.       (if 
  365.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  366.     ("")
  367.     (run ("SYS:Utilities/More %s" #readme-file))
  368.       )
  369.     )
  370.   )
  371. )
  372. ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  373. (if
  374.   (= #instmode 2)
  375.   (
  376.     (set #toinstall
  377.       (askchoice
  378.         (prompt "Select installation procedure")
  379.         (default 0)
  380.         (choices "Original Populous" "Datadisk (requires also original Populous)")
  381.     (help @askchoice-help)
  382.       )
  383.     )
  384.     (if
  385.       (= #toinstall 0)
  386.       (
  387.         (set #toinstall "game")
  388.       )
  389.     )
  390.     (if
  391.       (= #toinstall 1)
  392.       (
  393.         (set #toinstall "data")
  394.         (set @app-name "Populousdata")
  395.       )
  396.     )
  397.     (set @default-dest
  398.       (askdir
  399.         (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  400.         (help @askdir-help)
  401.         (default @default-dest)
  402.         (disk)
  403.       )
  404.     )
  405.  
  406.     (set #dest (tackon @default-dest @app-name))
  407.  
  408. ;if anything similar exist delete it
  409.     (if
  410.       (exists #dest)
  411.       (if
  412.     (= (askbool
  413.       (prompt "Destinationdrawer already exists, delete it?")
  414.       (help @askbool-help)
  415.         ) 1)
  416.         (run ("Delete \"%s\" \"%s.info\" all" #dest #dest))
  417.       )
  418.     )
  419.  
  420.     (makedir #dest
  421.       (help @makedir-help)
  422.       (infos)
  423.     )
  424.     (if
  425.       (exists #readme-file)
  426.       (
  427.         (copyfiles
  428.           (help @copyfiles-help)
  429.           (source #readme-file)
  430.           (dest #dest)
  431.         )
  432.         (copyfiles
  433.           (help @copyfiles-help)
  434.           (source ("%s.info" #readme-file))
  435.           (dest #dest)
  436.         )
  437.       )
  438.     )
  439. ;----------------------------
  440.  
  441.     (working "Please insert now your already modified backup disk.")
  442.     (if
  443.       (= (exists "populous:1") 1)
  444.       (set #paramver "27cr")
  445.     )
  446.  
  447.     (run ("c:assign P: \"%s\"" #dest))
  448.  
  449.     (if
  450.       (= #paramver "27cr")
  451.       (copyfiles
  452.         (help @copyfiles-help)
  453.         (source ("%s1" #CI_drive))
  454.         (newname ("populous1"))
  455.         (dest #dest)
  456.       )
  457.       (copyfiles
  458.         (help @copyfiles-help)
  459.         (source ("%spopulous" #CI_drive))
  460.         (newname ("populous1"))
  461.         (dest #dest)
  462.       )
  463.     )
  464.     (copyfiles
  465.       (help @copyfiles-help)
  466.       (source ("%spopulous.prg" #CI_drive))
  467.       (dest #dest)
  468.     )
  469.     (copyfiles
  470.       (help @copyfiles-help)
  471.       (source ("%sdemo.pic" #CI_drive))
  472.       (newname ("mo.pic"))
  473.       (dest #dest)
  474.     )
  475.     (copyfiles
  476.       (help @copyfiles-help)
  477.       (source ("%sfont.dat" #CI_drive))
  478.       (newname ("nt.dat"))
  479.       (dest #dest)
  480.     )
  481.     (copyfiles
  482.       (help @copyfiles-help)
  483.       (source ("%sgmusic1" #CI_drive))
  484.       (newname ("usic1"))
  485.       (dest #dest)
  486.     )
  487.     (copyfiles
  488.       (help @copyfiles-help)
  489.       (source ("%sgwords" #CI_drive))
  490.       (newname ("ords"))
  491.       (dest #dest)
  492.     )
  493.     (copyfiles
  494.       (help @copyfiles-help)
  495.       (source ("%sland0" #CI_drive))
  496.       (newname ("nd0"))
  497.       (dest #dest)
  498.     )
  499.     (copyfiles
  500.       (help @copyfiles-help)
  501.       (source ("%sland1" #CI_drive))
  502.       (newname ("nd1"))
  503.       (dest #dest)
  504.     )
  505.     (copyfiles
  506.       (help @copyfiles-help)
  507.       (source ("%sland2" #CI_drive))
  508.       (newname ("nd2"))
  509.       (dest #dest)
  510.     )
  511.     (copyfiles
  512.       (help @copyfiles-help)
  513.       (source ("%sland3" #CI_drive))
  514.       (newname ("nd3"))
  515.       (dest #dest)
  516.     )
  517.     (copyfiles
  518.       (help @copyfiles-help)
  519.       (source ("%slevel.dat" #CI_drive))
  520.       (newname ("vel.dat"))
  521.       (dest #dest)
  522.     )
  523.     (copyfiles
  524.       (help @copyfiles-help)
  525.       (source ("%sload.pic" #CI_drive))
  526.       (newname ("ad.pic"))
  527.       (dest #dest)
  528.     )
  529.     (copyfiles
  530.       (help @copyfiles-help)
  531.       (source ("%slord.pic" #CI_drive))
  532.       (newname ("rd.pic"))
  533.       (dest #dest)
  534.     )
  535.     (copyfiles
  536.       (help @copyfiles-help)
  537.       (source ("%smouths.pic" #CI_drive))
  538.       (newname ("uths.pic"))
  539.       (dest #dest)
  540.     )
  541.     (copyfiles
  542.       (help @copyfiles-help)
  543.       (source ("%spopsam" #CI_drive))
  544.       (newname ("psam"))
  545.       (dest #dest)
  546.     )
  547.     (copyfiles
  548.       (help @copyfiles-help)
  549.       (source ("%sqaz.pic" #CI_drive))
  550.       (newname ("z.pic"))
  551.       (dest #dest)
  552.     )
  553.     (copyfiles
  554.       (help @copyfiles-help)
  555.       (source ("%ssprites0.dat" #CI_drive))
  556.       (newname ("rites0.dat"))
  557.       (dest #dest)
  558.     )
  559.     (copyfiles
  560.       (help @copyfiles-help)
  561.       (source ("%sspr_320.dat" #CI_drive))
  562.       (newname ("r_320.dat"))
  563.       (dest #dest)
  564.     )
  565.  
  566.  
  567.     (copyfiles
  568.       (help @copyfiles-help)
  569.       (source ("Populous.inf"))
  570.       (newname ("Populous.info"))
  571.       (dest #dest)
  572.     )
  573.     (copyfiles
  574.       (help @copyfiles-help)
  575.       (source ("Populous_st"))
  576.       (newname ("Populous"))
  577.       (dest #dest)
  578.     )
  579.  
  580.     (run ("populoushd"))
  581.     (if
  582.       (= #paramver "27cr")
  583.       (P_decrfiles)
  584.     )
  585.  
  586.     (run ("c:assign P: remove"))
  587.  
  588.     (if
  589.       (= #toinstall "data")
  590.       (P_installdatadisk)
  591.     )
  592.  
  593. ;----------------------------
  594.  
  595.     (run ("Delete %s ALL QUIET FORCE" #cleanup))    ;delete all temporary files
  596.  
  597.     (if
  598.       (exists #readme-file)
  599.       (if 
  600.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  601.     ("")
  602.     (run ("SYS:Utilities/More %s" #readme-file))
  603.       )
  604.     )
  605.   )
  606. )
  607.  
  608. (exit)
  609.